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-- file SymTab.Mesa 

-- last modified by Johnsson, April 7, 1978 8:06 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
ControlDefs: FROM "controldef s" , 
StringDefs: FROM "stringdef s" , 
SynibolTable: FROM "symbol table" , 
SymbolTableDefs: FROM "symbol tabledefs" , 
SymDefs: FROM "symdefs", 
SymSegDefs: FROM "symsegdef s" . 
SymTabDefs: FROM "symtabdef s" . 
TableDefs: FROM "tabledefs"; 

SymTab: PROGRAM 
IMPORTS 

StringDefs, TableDefs, SymTabDefs, 
own: SymbolTable 
EXPORTS SymTabDefs SHARES SymDefs « 
PUBLIC 
BEGIN 
OPEN TableDefs, SymTabDefs, SymDefs; 

Substring: TYPE =« StringDefs. Substring; 

StaticNestError: SIGNAL = CODE; 

-- tables defining the current symbol table 

hashVector: PRIVATE ARRAY HVIndex OF HTIndex; 

ht: PRIVATE DESCRIPTOR FOR ARRAY --HTIndex— OF HTRecord; 

hashVec: PRIVATE DESCRIPTOR FOR ARRAY OF HTIndex = -- DESCRIPTORChashVector] 

DESCRIPTOR[BASE[hashVector], HVLength]; -- ?? 

htb: PRIVATE TableBase; -- hash table 

ssb: PRIVATE STRING; -- id string 

seb: PRIVATE TableBase; -- se table 

ctxb: PRIVATE TableBase; -- context table 

mdb: PRIVATE TableBase; -- module directory base 

bb: PRIVATE TableBase; -- body table 

UpdateBases: PRIVATE TableNotif ier = 

BEGIN -- called whenever the main symbol table is repacked 

own.hashVec <- hashVec; 

htb ♦- base[httype] ; 

own. ssb ^ ssb ♦■ LOOPHOLE[base[sstype] , STRING]; 

own.ht <- ht ^ DESCRIPTOR[htb, LENGTH[ht]]; 

own. seb <- seb ♦- base[setype]; 

own. ctxb «- ctxb *- base[ctxtype]; own. mdb *- mdb ^ base[mdtype]; 

own.bb ^ bb <- base[bodytype]; 

own.tb <- base[SymSegDef s . treetype]; 

own.ltb <- base[SymSegDers. 1 ttype] ; 

own.extb <- base[SymSegDef s .exttype]; 

own .notif ier[own] ; 

RETURN 

END; 

AllocateHash: PRIVATE PROCEDURE RETURNS [HTIndex] = 
BEGIN 

hti: HTIndex « LENGTH[ht]; 
[] ^ Allocate[httype. SIZE[HTRecord]]; 
own.ht <- ht <~ DESCRIPTOR[htb. LENGTH[ht] + l] ; 
ht[hti] ♦- HTRecord[ 

anylnternal : FALSE , 

anyPublic: FALSE, 

link: HTNull , 

sslndex: ssb. length]; 
RETURN [hti] 
END; 

hashblock: PROCEDURE RETURNS [base: POINTER, length: CARDINAL] - 
BEGIN 

base <- BASE[hashVector]; length ^ LENGTH[hashVector] ; RETURN 
END; 

-- variables for building the symbol string 
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ssw: PRIVATE Tablelndex; 

tableOpen: PRIVATE BOOLEAN *- FALSE; 

symtabinit: PROCEDURE ■ 

BEGIN -- called to set up the compiler's symbol table 

i: HVIndex; 

IF tableOpen THEN symtaberase[] ; 

own.notifier <- own .NullNotif ier; 

own.stHandle ♦- NIL; own. sourceFile <- NIL; 

FOR i IN HVIndex DO hashVector[i] ♦- HTNull ENDLOOP; 

ht <r DESCRIPTOR[NIL, 0]; 

AddNotify[UpdateBases]; 

ssw ^ Allocate[sstype, SIZE[StringBody]] + SIZE[StringBody] ; 

ssbt <r StringBody[length:0, maxlength:0, text:]; 

IF AllocateHash[] ff HTNull THEN ERROR; 

IF mal<enonctxse[SIZE[nil constructor SERecord]] ff SENull THEN ERROR; 

(seb+CSENull)t ^ SERecord[mark3: FALSE. mark4: FALSE, 

sebody: constructor[nil[]]] ; 
IF makenonctxse[SIZE[mode constructor SERecord]] ff typeTYPE THEN ERROR; 
(seb+typeTYPE)t 4- SERecord[mark3 : TRUE, mark4: TRUE, 

sebody: constructor[mode[]]] ; 
IF Allocate[ctxtype, SIZE [nil CTXRecord]] # CTXNull THEN ERROR; 
(ctxb+CTXNull)t ^ CTXRecord[snNil. ISENull, IZ, nil[]]; 
tableOpen *- TRUE; RETURN 
END; 

symtaberase: PROCEDURE » 

BEGIN -- releases storage allocated for the symbol table blocks 

tableOpen <- FALSE; 

DropNotify[UpdateBases]; 

RETURN 

END; 

-- hash entry creation 

EnterString: PROCEDURE [s: Substring] RETURNS [hti: HTIndex] = 
BEGIN 

OPEN StringDefs; 
hvi: HVIndex; 

desc: SubStringDescriptor <- [base:ssb, offset:, length:]; 
CharsPerWord: CARDINAL « Al toDef s .CharsPerWord; 
offset, length, nw: CARDINAL; 
ssi: Tablelndex; 
hvi <r HashValue[s]; 

FOR hti ^ hashVec[hvi], ht[hti].link UNTIL hti = HTNull 
DO 

desc. offset <- ht[hti-l] .sslndex; 
desc. length ^ ht[hti] .sslndex - desc. offset; 
IF EqualSubStrings[s, Qdesc] THEN RETURN [hti]; 
ENDLOOP; 
offset *- ssb. length; length <- s. length; 

nw ^ LOOPHOLE[offset+length+(CharsPerWord-l) - ssb .maxlength, CARDINAL]/CharsPerWord; 
IF nw i^ 
THEN 

BEGIN ssi <- Allocate[sstype, nw]; 
IF ssi ff ssw THEN ERROR; 
ssw <- ssw + nw; 
ssbt <- StringBody[ 

length: ssb. length, 

maxlength: ssb .maxlength + nw*CharsPerWord, 
text:]; 
END; 
AppendSubString[ssb, s]; 
hti <- AnocateHash[]; 

ht[hti].link *- hashVec[hvi] ; hashVec[hvi] ^ hti; 
RETURN 
END; 

-- lexical level accounting 
nextlevel: PROCEDURE [cl: ContextLevel ] RETURNS [nl : ContextLevel ] * 



Symtab.mesa 2-Sep-78 12:59:59 Page 



BEGIN -~ increments static height, checking for overflow 
IF cl+1 < MaxContextLevel 

THEN nl ^ c1+l 

ELSE BEGIN SIGNAL StaticNestError ; nl <- cl END; 
RETURN 
END; 



-- context table manipulation 

makenewctx: PROCEDURE [level: ContextLevel ] RETURNS [ctx: CTXIndex] - 
BEGIN -- makes a non-include context entry 
ctx <- Allocate[ctxtype, SIZE[simple CTXRecord]] ; 
(ctxb+ctx)t 4- [ 

sn: snNil , 

selist: ISENull , 

ctxlevel : level , 

extension: simple[ctxNew: CTXNull]]; 
RETURN 
END; 

resetctxlist: PROCEDURE [ctx: CTXIndex] « 

BEGIN -~ change the list for ctx to a proper chain 

OPEN (ctxb+ctx); 

sei : ISEIndex « selist; 

IF sei i^ SENull 

THEN BEGIN selist <- NextSe[sel ist] ; setsel ink[sei , ISENull] END; 
RETURN 
END; 



firstvisiblese: PROCEDURE [ctx: CTXIndex] RETURNS [sei: ISEIndex] = 
BEGIN 

sei *r (ctxb+ctx) .sei ist; 
WHILE sei U SENull AND (seb+sei) . ctxnum # ctx 

DO sei <- NextSe[sei] ENDLOOP; 
RETURN 
END; 

visiblectxentries: PROCEDURE [ctx: CTXIndex] RETURNS [n: CARDINAL] 
BEGIN 

sei: ISEIndex; 

IF ctx = CTXNull THEN RETURN [0]; 
WITH (ctxb+ctx) SELECT FROM 

included => IF -ctxreset THEN RETURN [0]; 

ENDCASE; 
n <- 0; 
FOR sei *- (ctxb+ctx). selist, NextSeQsei] UNTIL sei = SENull 

DO 

IF (seb+sei) . ctxnum = ctx THEN n <- n + 1; 

ENDLOOP; 
RETURN 
END; 



ContextVariant: PROCEDURE [ctx: CTXIndex] RETURNS [ISEIndex] » 
BEGIN 

sei: ISEIndex; 

IF ctx = CTXNull THEN RETURN [ISENull]; 
FOR sei <- (ctxb+ctx) .selist, NextSe[sei] UNTIL sei = SENull 

DO 

IF TypeForm[(seb+sei) . idtype] = union THEN RETURN [sei]; 

ENDLOOP; 
RETURN [ISENull] 
END; 



-- semantic entry creation 

makeSEChain: PROCEDURE [ctx: CTXIndex, n: CARDINAL, linked: BOOLEAN] RETURNS [sechain: ISEIndex] 
BEGIN 

sei: ISEIndex; 

IF n « THEN RETURN [ISENull]; 
sechain <- Al locate[setype, 

(n-l)*SIZE[sequential id SERecord] + 
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(IF linked 

THEN SIZE[1inked id SERecord] 
ELSE SIZE[terminal id SERecord])]; 
sei ^ sechain; 
THROUGH [l..n) 
DO 
(seb+sei)t <- [mark3: FALSE, mark4: FALSE, 

sebody: id[, ,ctx, , , , , .HTNul 1 , , sequential []]] ; 
sei ^ sei + SIZE[sequential id SERecord]; 
ENDLOOP; 
IF linked 
THEN 

(seb+sei)t 4- SERecord[mark3 : FALSE, niark4: FALSE, 

sebody: id[, ,ctx HTNul 1 ,. 1 inked[ISENull ]]] 

ELSE 

(seb+sei)t <r SERecord[mark3 : FALSE, niark4: FALSE, 

sebody: id[, ,ctx, , , , , , HTNul 1 , , terminal []]]; 
RETURN 
END; 

makectxse: PROCEDURE [hti: HTIndex, ctx: CTXIndex] RETURNS [sei: ISEIndex] 
BEGIN -- makes an id-tagged entry for a declared item 
next, psei: ISEIndex; 

sei <- Allocate[setype, SIZE[linked id SERecord]]; 
IF ctx - CTXNull 

THEN next ^ ISENull 
ELSE 

BEGIN psei ^ (ctxb+ctx) . sei ist; 
IF psei = SENull 

THEN next ♦- sei 

ELSE BEGIN next <- NextSe[psei]; setsel ink[psei , sei] END; 
(ctxb+ctx) .sei ist <- sei; 
END; 
(seb+sei)t *- SERecord[ 
markS: FALSE. 
mark4: FALSE, 

sebody: id[, ,ctx, , , , , ,hti , , 1 inked[l ink: next]]]; 
RETURN 
END; 

NameClash: SIGNAL [hti: HTIndex] « CODE; 

fillctxse: PROCEDURE [sei: ISEIndex. hti: HTIndex, public: BOOLEAN] - 
BEGIN 

psei: ISEIndex; 

ctx: CTXIndex = (seb+sei ) .ctxnum; 
(seb+sei) .htptr ^ hti ; 
IF hti # HTNull 
THEN 
BEGIN 

IF ht[hti].anylnternal AND ctx ff CTXNull 
THEN 

FOR psei ^ (ctxb+ctx) .sei ist, NextSe[psei] UNTIL psei = sei 
DO 

IF (seb+psei). htptr « hti THEN GO TO duplicate; 
REPEAT 

duplicate => SIGNAL NameClash[hti]; 
ENDLOOP; 
ht[hti].anylnternal «- TRUE; 
IF public THEN ht[hti] . anyPubl ic ^ TRUE; 
END; 
RETURN 
END; 

setsel ink: PROCEDURE [sei, next: ISEIndex] « 
BEGIN 
WITH (seb+sei) SELECT FROM 

linked «> link ♦- next; 

ENDCASE »> ERROR; 
RETURN 
END; 



makenonctxse: PROCEDURE [size: CARDINAL] RETURNS [sei: CSEIndex] 
BEGIN ~- makes a non-ctx se entry for a constructed type 
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sei <- Anocate[setype, size]; 

{seb+sei)t i- [mark3: FALSE , mark4;FALSE, sebody :constructor[typeinfo: ]]; 

RETURN 

END; 

-- attribute testing 

Constantid: PROCEDURE [sei: ISEIndex] RETURNS [BOOLEAN] - 
BEGIN 

RETURN [IF ~(seb+sei) .constant 
THEN FALSE 
ELSE 

SELECT XferMode[(seb+sei).idtype] FROM 

procedure => (seb+sei) .niark4 AND (seb+sei) . idinfo » BTNull , 
signal , error «> 

(seb+sei) .mark4 AND ConstantLink[(seb+sei) . idvalue] , 
ENDCASE »> TRUE] 
END; 

ConstantLink: PROCEDURE [link: ControlDef s .ControlLink] RETURNS [BOOLEAN] « 
BEGIN 

RETURN [link.gfi « ControlDef s .GFTNull ] 
END; 

END. 



